home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D03.D64 / demo ba (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  89 lines
  1. 0 FORT=0TO20:GETA$:NEXT
  2. 10 POKE53281,0
  3. 11 POKE53280,11
  4. 15 V=53248
  5. 16 IFR=1THEN SYS 49316:GOTO190
  6. 90 IF R=1THEN190
  7. 100 L=L+1:IF L=1THENLOAD"MULTIPLEXOR",8,1
  8. 110 IFL=2THENLOAD"MC DEMO",8,1
  9. 111 IFL=3THENLOAD"MOVER",8,1
  10. 115 FORT=0TO64:POKE255*64+T,170:NEXT
  11. 120 PRINT"[147] TO EXIT PRESS FIRE BUTTON IN DEMO"
  12. 130 PRINT" PRESS FIRE TO CONTINUE"
  13. 140 IFPEEK(56320)<>111THEN140
  14. 150 SYS 16384+256+256
  15. 160 POKE53248+21,0
  16. 170 PRINT"[147]"
  17. 180 IFR=0THENR=1:LOAD"SPRITES",8,1
  18. 190 FORT=0TO31STEP3:POKE50240+T,14:NEXT:FORT=1TO31STEP3:POKE50240+T,10:NEXT
  19. 191 FORT=2TO31STEP3:POKE50240+T,12:NEXT
  20. 192 POKE53280,12:POKE53281,0
  21. 195 V=53248:SYS49316
  22. 196 POKE16383,0
  23. 201 FORT=0TO31:POKE50272+T,213+T:NEXT
  24. 210 Y=50:FORT=0TO3:FORD=0TO7:POKE50176+D+T*8,30+D*24:POKE50208+T*8+D,Y:NEXT
  25. 220 Y=Y+60:NEXT
  26. 225 FORT=0TO31:POKE50304+T,8:NEXT
  27. 226 POKEV+37,1:POKEV+38,6
  28. 230 SYS50688
  29. 240 FORT=24TO31:POKE50208+T,255:POKE50176+T,PEEK(50176+T)+50:NEXT
  30. 250 REMFORT=8TO31:POKE50208+T,0:NEXT
  31. 260 SYS50688
  32. 261 GOTO618
  33. 270 X=0:Y=0:SP=8:T=1:Z$="   [157][157][157]   [157][157][157]   "
  34. 280 PRINT" SPRITE X=    [157][157][157][157]";PEEK(50176+SP)
  35. 290 PRINT" SPRITE Y=    [157][157][157][157]";PEEK(50176+32+SP)
  36. 300 PRINT" SPR WHAT=    [157][157][157][157]";PEEK(50176+96+SP)
  37. 310 PRINT" SPR COL =    [157][157][157][157]";PEEK(50176+64+SP)
  38. 320 PRINT" SPR NUM =    [157][157][157][157]";SP
  39. 321 PRINT" STEP    =    [157][157][157][157]";S
  40. 330 GETA$:IFA$=""THEN600
  41. 340 IFA$="+"THENSP=SP+1:IFSP>24THENSP=0
  42. 350 IFA$="-"THENSP=SP-1:IFSP<0THENSP=24
  43. 360 S=S+(A$="[138]")-(A$="[134]"):IFS<0THENS=16
  44. 370 IFS>16THENS=0
  45. 380 IFA$="O"THENPOKE50176+SP+32,0
  46. 500 X=PEEK(50176+SP):Y=PEEK(50176+SP+32)
  47. 510 X=X+((A$="Z")*S)-((A$="X")*S)
  48. 520 Y=Y+((A$=";")*S)-((A$="/")*S)
  49. 530 IFX<0THENX=255
  50. 540 IFX>255THENX=0
  51. 545 IFY=0THEN560
  52. 550 IFY<30THENY=255
  53. 560 IFY>255THENY=30
  54. 570 POKE50176+SP,X:POKE50176+SP+32,Y
  55. 600 C=PEEK(50176+SP+64):POKE50176+SP+64,C+1:SYS50688:POKE50176+SP+64,C
  56. 610 SYS50688:GOTO280
  57. 618 DATA54, 78, 0, 0, 0, 0, 0, 38, 62, 86, 110, 102, 102, 126,126,150,130,154,106
  58. 619 DATA130, 0, 129, 174, 134, 80, 104, 128, 152, 176, 200, 224, 248
  59. 620 DATA84, 83, 32, 30, 30, 30, 0, 158, 211, 211,212,80,101,101,122, 122, 170, 170
  60. 630 DATA191, 191, 220, 0, 0, 0, 255, 255, 255, 255, 255, 255, 255, 255
  61. 635 RESTORE
  62. 640 FORT=0TO31:READF:POKE50176+T,F:NEXT
  63. 649 PRINT"[147][151]     PRESS ANY KEY TO LOAD THE MENU     "
  64. 650 FORT=32TO63:READF:POKE50176+T,F:NEXT:SYS50688:D=-1
  65. 651 POKE830,1
  66. 652 Z=49312:X=49152+32:GOTO1000
  67. 655 SYS820:GETA$:IFA$<>""THEN660
  68. 656 NEXT:D=-D:IFD=1THENPOKE830,253:GOTO652
  69. 657 GOTO651
  70. 660 PRINT"[147][151]     PRESS ANY KEY TO LOAD THE MENU     "
  71. 661 POKE830,254:POKE823,0:POKE832,0:FORT=0TO300
  72. 662 SYS820:NEXT
  73. 680 POKE53248+21,0
  74. 690 S$="MENU":LOAD"RTU",8,1
  75. 1000 D=2:N=48:POKE823,0:POKE832,0
  76. 1001 FORA=1TO20:V=RND(1)*40:W=INT(RND(1)*23)+1:POKE1024+V+W*40,46
  77. 1002 POKE55296+V+W*40,RND(1)*15:NEXT
  78. 1003 PRINT"[155]A DEMO TO SHOW WHAT CAN BE DONE IN BASIC"
  79. 1004 GOTO1040
  80. 1010 FORT=0TON
  81. 1020 SYS820:POKEZ+2,PEEK(X+16):POKEZ+1,PEEK(X+8):POKEZ,PEEK(X)
  82. 1021 IFPEEK(197)<>64THEN661
  83. 1030 NEXT:D=D+1:IFD>4THEND=1
  84. 1040 IFD=4THENPOKE830,253:N=49:POKE823,0:POKE832,0:GOTO1010
  85. 1050 IFD=2THENPOKE830,1:N=49:POKE823,0:POKE832,0:GOTO1010
  86. 1060 IFD=3THENPOKE823,32:POKE832,32:POKE830,253:N=13:GOTO1010
  87. 1070 IFD=1THENPOKE823,32:POKE832,32:POKE830,1:N=13:GOTO1010
  88. 1080 GOTO1010
  89.